home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 July / Ahoy_Magazine_88-07_1988_Double_L.d64 / Vari-Scan 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  59 lines
  1. 10 rem *** vari-scan 64 *** buck childress ***
  2. 20 rem *** p.o. box 13575 salem, or 97309 ***
  3. 30 printchr$(147)"loading and checking data line:":j=52000
  4. 40 forb=0to11:reada
  5. 50 ifb=0thenl=peek(64)*256+peek(63):printchr$(19)tab(31)l:print
  6. 60 ifa<0ora>255then80
  7. 70 pokej+b,a:x=x+a:d=d+1:nextb:reada:ifa=xthen90
  8. 80 print"error in data line:"l:end
  9. 90 x=0:j=j+12:ifd<564then40
  10. 100 print"the data is ok...":print
  11. 110 print"sys 52000 to activate...":end
  12. 120 data104,104,169,79,32,210,255,169,78,162,57,160,1579
  13. 130 data203,142,0,3,140,1,3,32,210,255,76,179,1244
  14. 140 data204,173,0,2,201,95,208,17,169,79,32,210,1390
  15. 150 data255,169,70,32,210,255,162,139,160,227,76,45,1800
  16. 160 data203,201,65,144,4,201,91,144,3,76,139,227,1498
  17. 170 data32,96,166,162,0,160,0,140,85,205,140,83,1269
  18. 180 data205,189,1,2,240,47,48,198,201,32,208,3,1374
  19. 190 data232,208,242,72,173,85,205,208,10,192,0,240,1867
  20. 200 data6,104,201,48,176,238,72,104,153,1,2,201,1306
  21. 210 data48,176,10,141,85,205,201,40,208,3,141,83,1341
  22. 220 data205,232,200,208,204,153,1,2,165,43,166,44,1623
  23. 230 data133,251,134,252,134,254,160,0,177,43,133,253,1924
  24. 240 data152,145,45,200,208,251,141,90,205,141,92,205,1875
  25. 250 data32,2,205,160,2,177,251,200,209,251,208,7,1704
  26. 260 data201,0,208,3,76,167,204,170,177,251,141,88,1686
  27. 270 data205,142,89,205,160,3,32,2,205,141,91,205,1480
  28. 280 data173,92,205,240,8,162,0,142,92,205,32,187,1538
  29. 290 data204,200,177,251,208,3,76,135,204,201,131,240,2030
  30. 300 data4,201,143,208,3,76,138,204,201,34,208,7,1427
  31. 310 data174,91,205,240,212,208,207,174,91,205,208,208,2223
  32. 320 data201,65,144,22,201,91,176,200,141,92,205,174,1712
  33. 330 data84,205,208,55,174,87,205,224,2,144,51,76,1515
  34. 340 data237,203,174,92,205,240,190,201,58,176,173,201,2150
  35. 350 data48,176,228,201,32,240,178,201,36,240,21,201,1802
  36. 360 data37,240,17,201,40,240,13,201,41,240,9,201,1480
  37. 370 data44,208,29,174,83,205,240,24,141,84,205,174,1611
  38. 380 data87,205,157,93,205,238,87,205,201,41,208,11,1738
  39. 390 data173,83,205,208,3,206,87,205,76,224,203,201,1874
  40. 400 data40,208,17,232,142,86,205,173,83,205,208,8,1607
  41. 410 data169,0,141,92,205,141,87,205,76,237,203,32,1588
  42. 420 data187,204,32,5,205,166,253,165,254,240,20,134,1865
  43. 430 data251,133,252,160,0,177,253,72,200,177,253,133,2061
  44. 440 data254,104,133,253,76,191,203,173,90,205,208,7,1897
  45. 450 data169,47,160,205,32,30,171,169,0,141,0,2,1126
  46. 460 data76,116,164,162,0,189,0,2,240,18,201,92,1260
  47. 470 data208,6,236,86,205,76,215,204,221,93,205,208,1963
  48. 480 data49,232,208,233,236,87,205,208,41,104,104,173,1880
  49. 490 data90,205,208,7,169,21,160,205,32,30,171,169,1467
  50. 500 data76,160,205,32,30,171,173,88,205,174,89,205,1608
  51. 510 data32,205,189,169,13,32,210,255,141,90,205,76,1617
  52. 520 data138,204,169,0,170,157,93,205,232,208,250,141,1967
  53. 530 data84,205,141,86,205,141,87,205,96,13,18,86,1367
  54. 540 data65,82,73,65,66,76,69,32,73,83,32,73,789
  55. 550 data78,32,85,83,69,46,46,46,13,13,0,13,524
  56. 560 data18,86,65,82,73,65,66,76,69,32,73,83,788
  57. 570 data32,78,79,84,32,73,78,32,85,83,69,46,771
  58. 580 data46,46,13,0,76,73,78,69,58,32,0,220,711
  59.